home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8704.d64 / gfl v1.1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  4KB  |  99 lines
  1. 10 A=A+1:IF A=1 THEN LOAD"GDM.CODES",8,1
  2. 15 B=B+1:IF B=1 THEN LOAD"GDM.OBJ",8,1
  3. 20 BM=49664:FORT=0 TO 7:POKE 49438+T,2^T:NEXT:POKE53269,0:POKE53280,0:POKE646,1
  4. 25 POKE 53281,0:BUFF=BM+2:POKE53272,23
  5. 30 POKE657,128:PRINT"[147][199]EOS [198]ILE [204]INKER  VON [212]HORSTEN [208]ETROWSKI[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  6. 35 INPUT " [218]U LINKENDES [198]ILE";SF$:FF=0
  7. 36 CLOSE 15:CLOSE 2:OPEN 15,8,15,"IO":OPEN 2,8,2,"#"
  8. 40 IF IN$="$" THEN SF$=CHR$(0)
  9. 45 GOSUB 210:IF FF=0  THEN 35
  10. 50 PRINT"[198][201][204][197]-[197][201][206][212][210][193][199]:[146]":IF IT<>0 THEN 75
  11. 55 IT=1:IS=0
  12. 60 PRINT#15,"B-A 0";IT;IS:INPUT#15,REP,DUMMY$,IT,IS
  13. 61 IF REP=0 THEN IT=1:IS=0:GOTO 75
  14. 65 IF REP=65 AND IT=0 THEN PRINT"-[206]ICHTS MEHR FREI !":END
  15. 75 POKE RB+21,0:POKE RB+19,IT:POKE RB+20,IS:PRINT"    [199][197][207][211] [198]ILETYP :"
  16. 80 PRINT"0  [206]ICHT [199][197][207][211]",,,"1  [194]ASIC",,,,"2  [193]SSEMBLER",,,"4  [211]YSTEM-[196]ATEI",,,
  17. 85 PRINT"5  [196]ESK[164][193]CCESSORY",,,"6  [193]PPLIKATION",,,"8  [198]ONT-[198]ILE",,,
  18. 90 PRINT"9  [196]RUCKERTREIBER",,,"10 [197]INGABETREIBER"
  19. 95 AD=RB+22:PRINT" [201]HRE [215]AHL";:GOSUB 180:GT=VAL(IN$)
  20. 100 AD=RB+23:OU$="[211]CHREIBJAHR":GOSUB205:OU$="     -MONAT":GOSUB205
  21. 105 OU$="       -TAG":GOSUB205:OU$="    -STUNDE":GOSUB205
  22. 110 OU$="    -MINUTE":GOSUB 205
  23. 115 PRINT#15,"B-P 2 0":SYS 49193:PRINT#15,"U2:2 0";AT;AS:PRINT"[201]NFOSCHIRM"
  24. 120 PRINT#15,"U1:2 0";IT;IS:SYS 49152:POKEBM,0:POKE BM+1,255:POKE BM+2,3
  25. 125 POKE BM+3,21:POKE BM+4,193:POKE BM+69,GT:POKE BM+70,0
  26. 130 FORT=0 TO 62:POKE 832+T,PEEK(BM+5+T):NEXT:POKE BM+68,129
  27. 135 GOSUB 285:PRINT"[147][211]TARTADRESSE";:AD=BM+71:GOSUB 185:MEM=MEM-2:GOSUB190
  28. 140 PRINT"  [197]NDADRESSE";:AD=BM+73:GOSUB 185
  29. 145 PRINT"   [197]INSPRUNG";:AD=BM+75:GOSUB 185
  30. 150 PRINT"'[195][204][193][211][211]'";:AD=BM+77:L=20:GOSUB 200
  31. 155 PRINT"'[193][213][212][207][210]'";:AD=BM+97:L=19:GOSUB 200
  32. 160 PRINT" '[201][206][198][207]'";:AD=BM+160:L=94:GOSUB 200
  33. 165 PRINT#15,"B-P 2 0":SYS 49193:PRINT#15,"U2:2 0";IT;IS:PRINT"[198]ERTIG!"
  34. 170 CLOSE 2:CLOSE 15:GOTO 445
  35. 175 PRINT" :";:OPEN 3,0,0:INPUT#3,IN$:CLOSE 3:PRINT
  36. 176 IF LEFT$(IN$,1)<>"$" THEN RETURN
  37. 177 DEZ=0:FORC=1TO4:ACT=(ASC(MID$(IN$,C+1,1))AND127)-48
  38. 178 IF ACT>12 THEN ACT=ACT-7
  39. 179 DEZ=DEZ+16^(4-C)*ACT:NEXTC:IN$=STR$(DEZ):PRINT"(";IN$;" )":RETURN
  40. 180 GOSUB 175:POKE AD,VAL(IN$):RETURN
  41. 185 GOSUB 175:MEM=VAL(IN$)
  42. 190 IF MEM<0 THEN MEM=0
  43. 191 B1=INT(MEM/256):B0=((MEM/256)-INT(MEM/256))*256
  44. 195 POKE AD,B0:POKE AD+1,B1:RETURN
  45. 200 GOSUB 175:WE$=LEFT$(IN$,L):GOTO 425
  46. 205 PRINT OU$;:GOSUB200:POKE AD,VAL(IN$):AD=AD+1:RETURN
  47. 210 AT=18:AS=1:PRINT" [196]ISK-[211]EARCH ...":FF=0
  48. 215 PRINT#15,"B-P 2 0":PRINT#15,"U1:2 0";AT;AS:SYS 49152:POKE 53280,0:SB=0
  49. 220 RB=32*SB+BUFF:INPUT#15,ER,ER$,ET,ES
  50. 225 IF ER<>0 THEN PRINT"[196]ISK-[197]RROR ";ER;":";ER$;ET;ES:END
  51. 230 SYS 49259,(RB+3),16,NF$:PRINTNF$:LS=LEN(SF$):RI$=RIGHT$(SF$,1)
  52. 235 IF RI$<>"*" AND MID$(NF$,LS+1,1)<>"." THEN 265
  53. 240 IF RI$="*" AND SF$=LEFT$(NF$,LS-1)+"*"  THEN 250
  54. 245 IF SF$<>LEFT$(NF$,LS) THEN 265
  55. 250 CN=LEN(NF$)
  56. 255 IF MID$(NF$,CN,1)="." AND CN>0 THEN CN=CN-1:GOTO 255
  57. 260 SF$=LEFT$(NF$,CN):IT=PEEK(RB+19):IS=PEEK(RB+20):FF=1:RETURN
  58. 265 SB=SB+1:IF SB<8 THEN 220
  59. 270 AT=PEEK(BUFF-2):AS=PEEK(BUFF-1):IF AT=0 THEN RETURN
  60. 275 GOTO 215
  61. 280 B1=INT(AD/256):B0=((AD/256)-INT(AD/256))*256:RETURN
  62. 285 PRINT"[147] [201]CON [197]DIT[146]":POKE 49425,32:POKE 49430,42
  63. 290 SY$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  64. 295 PRINT"  [176]"SY$"[174]"
  65. 300 AD=832:FOR Y=0 TO 20
  66. 305 PRINT"  [221]";:FORX=0 TO 2:SYS49407,PEEK(AD):AD=AD+1:NEXT X:PRINT"[221]":NEXTY
  67. 310 PRINT"  [173]"SY$"[189]"
  68. 315 PRINT""TAB(28);"^^^^^"
  69. 320 POKE 53269,1:POKE 2040,13:POKE 53248,255:POKE 53249,76:POKE 53288,1
  70. 325 POKE 53264,0:X=0:Y=0:OX=2022:OP=0:DD=1107
  71. 330 POKE OX,PEEK(OX)AND127:POKE DD,PEEK(DD)OR128
  72. 335 GET KEY$:IF KEY$="" THEN 335
  73. 340 OX=DD:IF KEY$="" AND X<23  THEN X=X+1
  74. 345 IF KEY$="[157]" AND X>0 THEN X=X-1
  75. 350 IF KEY$="[145]" AND Y>0 THEN Y=Y-1
  76. 355 IF KEY$="" AND Y<20 THEN Y=Y+1
  77. 360 IF KEY$<>"Q" THEN 370
  78. 365 FORT=0 TO 62:POKE49669+T,PEEK(832+T):NEXT:POKE 53269,0:RETURN
  79. 370 IF KEY$<>"R" THEN 390
  80. 375 POKE 832,255:POKE 833,255:POKE 834,255:POKE 893,255:POKE 894,255
  81. 380 POKE 892,255:FORT=835 TO 889 STEP 3
  82. 385 POKE T,PEEK(T)OR128:POKE T+2,PEEK(T+2)OR1:NEXT:GOTO 295
  83. 390 IF KEY$="[147]" THEN FORT=832 TO 895:POKE T,0:NEXT:GOTO 295
  84. 395 IF KEY$<>" " THEN 415
  85. 400 IF (PEEK(BY)AND BI)=BI THEN 410
  86. 405 POKE BY,PEEK(BY)OR BI:POKE DD,170:GOTO 415
  87. 410 POKE BY,PEEK(BY)AND(255-BI):POKE DD,160
  88. 415 DD=1107+Y*40+X:BY=832+(Y*3)+INT(X/8):BI=2^(7-(INT(((X/8)-INT(X/8))*8)))
  89. 420 GOTO 330
  90. 425 WE$=WE$+CHR$(0):FOR W=1 TO LEN(WE$):WE=ASC(MID$(WE$,W,1))
  91. 430 IF WE>64 AND WE<91 THEN WE=WE+32:GOTO 440
  92. 435 IF WE>192 AND WE<219 THEN WE=WE-128
  93. 440 POKE AD-1+W,WE:NEXT W:RETURN
  94. 445 PRINT" ([206])OCHMAL ODER ([197])NDE ?"
  95. 450 GET KEY$:IF KEY$="" THEN 450
  96. 455 IF KEY$="N" OR KEY$="[206]" THEN RUN20
  97. 460 IF KEY$="E" OR KEY$="[197]" THEN NEW
  98. 465 GOTO 450
  99.